home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / brian.scp < prev    next >
Text File  |  1994-12-21  |  4KB  |  395 lines
  1.  
  2.  
  3. { BRIAN
  4. < BEACH = -4308 -4033 -75 >
  5. < CHAOS = 75 -218 54 >
  6. < TOWER = 134 -217 280 >
  7. < CONTROL = 158 -322 19 >
  8. < LANDPAD = -112 -274 101 >
  9. < DIGSITE = 248 125 177 >
  10. < TANKS = 112 -745 -12 >
  11. < TUNROOM = 45 -123 107 >
  12. }
  13. { BOMBBLAST
  14. @Çè ^éÑ +1 0 14 2 
  15. }
  16. { BRIAN_TEST0
  17.  ^烠
  18. }
  19. { SHOWBATT
  20. I @Çó ^àï THEN
  21. Q "The battery is being drained by the Reflect Suit" CONTINUE
  22. W 1 SECOND
  23. I @ÇÜ MY_BATTERY != 1 THEN
  24. {
  25. Q "cant find my_battery!"
  26. é 
  27. }
  28. Q "Battery Charge: %d" .ÇüÇÇ 
  29. }
  30.  
  31. { SETTEMPLESCENE
  32. ^äü = 1
  33. ^êÇ = $üâ 
  34. ^ç╖ = $üâ 
  35.  
  36. a ^é░ 1
  37. e WTALKY
  38. f INVENTORY
  39. @Ç¥ SETUPMARINES
  40. }
  41. { LEXMOTION
  42. :TOP
  43. I ^çí == 0 THEN é 
  44. â 
  45. I ^ç₧ > 0 THEN
  46. {
  47. I @Çö STAND OR @Çö COMBAT_STAND THEN
  48. {
  49. J #Çå
  50. }
  51. E 
  52. {
  53. I @Çó ^烠== $üâ THEN
  54. {
  55.  ^烠
  56. }
  57. }
  58. }
  59. }
  60. { DIEFLUFFY
  61. P ~ÇÇ 
  62. ~ÇÇ = 280
  63. ^äù = 0
  64. @Çì CS_GUNNERYSTATIONMONITOR
  65. I @Ç¢ ACIDD != 1 THEN
  66. {
  67. Q "Can't find Fluffy! Quitting current process!" 
  68. é 
  69. }
  70. @Çå `Çá 
  71.  
  72. @Çå `åû 150 1024 
  73.  
  74. @Çì EXPLODEFLUFFY
  75. G BEAST_5
  76. £ -90 GRADUAL
  77. M DIE CONTINUE
  78. W ~ÇÇ 
  79.  
  80. @Çì SPLASH
  81. W 20
  82.  
  83. G BEAST_1
  84. W 5
  85. ^äù = 1
  86. }
  87. { RESETUSEBOT
  88. F NURSEBOT 6666 6666 6666
  89. n CURFIG USE_BOT
  90. I @Ç¢ USE_BOT THEN
  91. {
  92. A OFF
  93. r CURFIG OFF
  94. Z CURFIG OFF
  95. u CURFIG ON
  96. è ON
  97. ï PLAYER
  98.  
  99. G UBOTLOC
  100.  
  101.  
  102.  
  103. ª USEALTI MAXIMUM
  104.  
  105. I ^ïá = 0 THEN
  106. {
  107. £ 0
  108. q DEACTIVATED 0
  109. o 
  110. }
  111. ¥ AVDBAR1 100
  112. ¥ AVDBAR2 100
  113. ¥ AVDBAR3 100
  114. ¥ AVDBAR4 100
  115. ¥ WAY_PT2 180
  116. ¥ GETMEAT 80
  117. }
  118. E Q "Can't find Use_BOT!" 
  119. }
  120. { BRIAN_TEST1
  121. @Ç¢ PLAYER
  122. e BLOCK
  123. @ÇÜ BLOCK
  124. f RTHAND
  125. e BLASTER
  126. @ÇÜ BLASTER
  127. f INVENTORY
  128. }
  129. { BRIAN_TEST2
  130. ^ç╖ = 1
  131. @Ç¢ B_GUARD
  132. ï PLAYER
  133. ¥ BLAST_1 150
  134. ¥ BLAST_2 150
  135. }
  136. { BRIAN_TEST3
  137. P ~ÇÇ 
  138. P ~Çü 
  139. P ~Çé 
  140. P ~Çâ 
  141. P ~Çä 
  142. ~ÇÇ = 900
  143. ~Çä = 0
  144. :LOOP
  145. ~Çü = ~ÇÇ / 100
  146. ~Çü = 10 - ~Çü 
  147. ~Çé = ~ÇÇ % 100
  148. ~Çé = ~Çé / 10
  149. ~Çé = 10 - ~Çé 
  150. ~Çâ = ~ÇÇ % 10
  151. ~Çâ = 10 - ~Çâ 
  152. ~Çä ++
  153. ~ÇÇ --
  154. I ~Çä < 900 THEN J #Çî 
  155. }
  156. { BRIAN_TEST4
  157. @Ç¢ PLAYER
  158. G FIREBTN1
  159. }
  160. { BRIAN_TEST5
  161. ^àÿ = 900
  162. @Ç¢ PLAYER
  163. .ÇéÇÇ = 100
  164. A ON
  165. @ÇÜ BOMB
  166. f RTHAND
  167. ^àû = @Çì WARHEAD_TIMER 
  168. }
  169. { BRIAN_TEST6
  170. @Ç¢ ACID
  171. C BCHR
  172. G -4935 -4195 -100
  173. £ 180
  174. M RISE CONTINUE
  175. W 2
  176. o 
  177.  
  178.  
  179. }
  180. { BRIAN_TEST7
  181. @Ç¢ ACID
  182. Q "2D Distance from Fluffy to Beast_1: %d" @Ç╗ CURFIG BEAST_1
  183. }
  184. { BRIAN_TEST8
  185. @Ç¢ ACID
  186. Q "Distance from Fluffy to Lex: %d" @Çò 
  187. }
  188. { FORM
  189. I @Ç⌐ HARD THEN ù LEX
  190. E ù HARD
  191. @Ç¢ PLAYER
  192. }
  193. { MOVEFORKBOT
  194. @Ç¢ CR_BOT
  195. G AL1_AUTO
  196. }
  197. { FORKCAM
  198. @Ç¢ CR_BOT
  199.  AIR1 AIR2 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
  200.  OPR1 OPR5 RTR6
  201. }
  202. { RESETBOMB
  203. I @Çó ^àû == $üâ THEN
  204.  ^àû 
  205. I @Çó ^àò == $üâ THEN
  206.  ^àò 
  207. I @Çó ^àù == $üâ THEN
  208.  ^àù 
  209. e BOMB
  210. f RTHAND
  211. ^é¿ = 1 
  212. ^àÉ = 0 
  213. ^àæ = 0 
  214. ^àÆ = 0 
  215. ^àô = 0 
  216. ^àö = 0 
  217. ^àò = 0 
  218. ^àû = 0 
  219. ^àù = 0 
  220. ^àÿ = 900 
  221. ^àû = @Çì WARHEAD_TIMER 
  222. }
  223. { GOTOMB
  224. @Ç¢ PLAYER
  225. G TOMB_LOC
  226. £ -59
  227. }
  228. { RESETTOMB
  229. ^Ī = 1 
  230. ^Ī = 0
  231. ^âö = 1
  232. ^âò = 1
  233. ^âù = 0
  234. ^âÄ = 0
  235. ^âÅ = 1
  236. @Çì TOMB_SPARKLE
  237. f INVENTORY
  238. }
  239. { BRIAN_TEST_OLD 
  240. I @Ç¢ PLAYER THEN
  241. {
  242.  
  243. I @Çæ ANYWHERE MONBAT = 0 THEN
  244. {
  245.  
  246. I @ÇÜ DANEBAT THEN
  247. {
  248. n CURITEM MONBAT
  249. M REMOVE_BATT
  250. i "Lex" "dane" 
  251. Q "Lex now has the battery"
  252. f CARRY
  253.  
  254. I @Ç¥ DANE_DEAD = 1 THEN
  255. é 
  256.  
  257. E 
  258. {
  259. I @Ç¢ DANE THEN
  260. {
  261. M DEATH
  262. .ÇéÇÇ = 0
  263. A OFF
  264. }
  265. E Q "Can't find Dane" 
  266. }
  267. }
  268. E Q "Can't find DaneBat" 
  269. }
  270. E Q "Lex already has the battery"
  271. }
  272. E Q "Can't find player" 
  273. } 
  274. { BRIAN_TEST2_OLD
  275. P ~ÇÇ 
  276. P ~Çü 
  277. P ~Çé 
  278. P ~Çâ 
  279. P ~Çä 
  280. P ~Çà 
  281. P ~Çå 
  282. ~Çâ = @Ç╝ CURFIG DEMO
  283. ~Çå = ~Çâ 
  284. ~ÇÇ = @Ç¿ CURFIG DEMO
  285. I ~ÇÇ == 180 THEN ~ÇÇ = -180
  286. ~Çü = ~ÇÇ - 90
  287. ~Çé = ~ÇÇ + 90
  288. ~Çä = ~ÇÇ + 180
  289. ~Çà = ~ÇÇ - 180
  290. Q "Demo is %d degrees relative to Lex" ~ÇÇ CONTINUE
  291.  
  292. I @Ç╝ CURFIG DEMO > 300 THEN é 
  293.  
  294. I ~ÇÇ IN -60 60 THEN
  295. {
  296. £ ~ÇÇ GRADUAL
  297. G DEMO WALK
  298. o 
  299. M STAND
  300. }
  301.  
  302. I ~ÇÇ NOTIN -120 120 THEN
  303. {
  304. I ~ÇÇ < 0 THEN
  305. {
  306. £ ~Çä GRADUAL
  307. J #ÇÜ 
  308. }
  309. I ~ÇÇ >= 0 THEN
  310. {
  311. £ ~Çà GRADUAL
  312. J #ÇÜ 
  313. }
  314. }
  315.  
  316. I ~ÇÇ IN 60 120 THEN
  317. {
  318. £ ~Çü GRADUAL
  319. J #Ç₧ 
  320. }
  321.  
  322. I ~ÇÇ IN -120 -60 THEN
  323. {
  324. £ ~Çé GRADUAL
  325. J #Ç£ 
  326. }
  327.  
  328. :WALK_BACKWARDS
  329. M WALK_BACK CONTINUE
  330. :LOC_B
  331. â 
  332.  
  333. ~Çâ = @Ç╝ CURFIG DEMO
  334. ! ~Çâ 
  335. ! ~Çå 
  336. I ~Çâ >= ~Çå THEN
  337. {
  338. Q "Went too far!" CONTINUE
  339. o 
  340. M STAND
  341. é 
  342. }
  343. ~Çå = ~Çâ 
  344. I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¢ 
  345. o 
  346. M STAND
  347. é 
  348.  
  349. :SIDESTEP_RIGHT
  350. M SIDESTEP_RIGHT CONTINUE
  351. :LOC_SR
  352. â 
  353.  
  354. ~Çâ = @Ç╝ CURFIG DEMO
  355. ! ~Çâ 
  356. ! ~Çå 
  357. I ~Çâ >= ~Çå THEN
  358. {
  359. Q "Went too far!" CONTINUE
  360. o 
  361. M STAND
  362. é 
  363. }
  364. ~Çå = ~Çâ 
  365. ! ~Çâ 
  366. I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¥ 
  367. o 
  368. M STAND
  369. é 
  370.  
  371. :SIDESTEP_LEFT
  372. M SIDESTEP_LEFT CONTINUE
  373. :LOC_SL
  374. â 
  375.  
  376. ~Çâ = @Ç╝ CURFIG DEMO
  377. ! ~Çâ 
  378. ! ~Çå 
  379. I ~Çâ >= ~Çå THEN
  380. {
  381. Q "Went too far!" CONTINUE
  382. o 
  383. M STAND
  384. é 
  385. }
  386. ~Çå = ~Çâ 
  387. ! ~Çâ 
  388. I @Ç╝ CURFIG DEMO > 20 THEN J #ǃ 
  389. o 
  390. M STAND
  391. é 
  392. }
  393.  
  394. //$ 26 - version number
  395.